VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "cNotifyIcon"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public OffLineIcon As Long
Public OnLineIcon As Long
Public Tray_OptionIcon As Long
Public Tray_BuddyIcon As Long
Public Tray_BuddyMenuIcon As Long
Public ServerMsgIcon As Long
Public MessageIcon As Long
Public MessageHideIcon As Long
Public ServerMessageIcon As Long
Public ServerMessageHideIcon As Long
'// Resource APIs
Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal iImageType As Long, ByVal cX As Long, ByVal cY As Long, ByVal fFlags As Long) As Long
Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long
Private Const IMAGE_ICON = 1
Private Const LR_LOADFROMFILE = &H10
Private Sub Class_Initialize()
   
    'OffLineIcon = LoadImage(0&, App.path & "\Login.ico", IMAGE_ICON, 16, 16, LR_LOADFROMFILE)
    OffLineIcon = Form1.TraPic.Picture
   
End Sub

Private Sub Class_Terminate()
   
    DestroyIcon OffLineIcon
    
    '''debug.Print "free Icons!!!!"
    
End Sub
